      MODULE employv2kp_v6
      USE employv2kp_v1
      CONTAINS
      SUBROUTINE SSSTV1(VCNO,SMRPOS,DSMRES,SIMRES,ERRMES)
      INTEGER VCNO,SMRPOS,DSMRES
      REAL SIMRES(DSMRES)
      CHARACTER*(*) ERRMES
      CHARACTER*10 SUBNAM
      PARAMETER(SUBNAM='SSSTV1')
      IF(VCNO.EQ.1) THEN
       CALL GPEQR1(SIZE(V00001),SIMRES(SMRPOS),V00001,ERRMES)
      ELSE IF(VCNO.EQ.2) THEN
       CALL GPEQR1(SIZE(V00002),SIMRES(SMRPOS),V00002,ERRMES)
      ELSE IF(VCNO.EQ.3) THEN
       CALL GPEQR1(SIZE(V00003),SIMRES(SMRPOS),V00003,ERRMES)
      ELSE IF(VCNO.EQ.4) THEN
       CALL GPEQR1(SIZE(V00004),SIMRES(SMRPOS),V00004,ERRMES)
      ELSE IF(VCNO.EQ.5) THEN
       CALL GPEQR1(SIZE(V00005),SIMRES(SMRPOS),V00005,ERRMES)
      ELSE IF(VCNO.EQ.6) THEN
       CALL GPEQR1(SIZE(V00006),SIMRES(SMRPOS),V00006,ERRMES)
      ELSE IF(VCNO.EQ.7) THEN
       CALL GPEQR1(SIZE(V00007),SIMRES(SMRPOS),V00007,ERRMES)
      ELSE IF(VCNO.EQ.8) THEN
       CALL GPEQR1(SIZE(V00008),SIMRES(SMRPOS),V00008,ERRMES)
      ELSE IF(VCNO.EQ.9) THEN
       CALL GPEQR1(SIZE(V00009),SIMRES(SMRPOS),V00009,ERRMES)
      ELSE IF(VCNO.EQ.10) THEN
       CALL GPEQR1(SIZE(V00010),SIMRES(SMRPOS),V00010,ERRMES)
      ELSE IF(VCNO.EQ.11) THEN
       CALL GPEQR1(SIZE(V00011),SIMRES(SMRPOS),V00011,ERRMES)
      ELSE IF(VCNO.EQ.12) THEN
       CALL GPEQR1(SIZE(V00012),SIMRES(SMRPOS),V00012,ERRMES)
      ELSE IF(VCNO.EQ.13) THEN
       CALL GPEQR1(SIZE(V00013),SIMRES(SMRPOS),V00013,ERRMES)
      ELSE IF(VCNO.EQ.14) THEN
       CALL GPEQR1(SIZE(V00014),SIMRES(SMRPOS),V00014,ERRMES)
      ELSE IF(VCNO.EQ.15) THEN
       CALL GPEQR1(SIZE(V00015),SIMRES(SMRPOS),V00015,ERRMES)
      ELSE IF(VCNO.EQ.16) THEN
       CALL GPEQR1(SIZE(V00016),SIMRES(SMRPOS),V00016,ERRMES)
      ELSE IF(VCNO.EQ.17) THEN
       CALL GPEQR1(SIZE(V00017),SIMRES(SMRPOS),V00017,ERRMES)
      ELSE IF(VCNO.EQ.18) THEN
       CALL GPEQR1(SIZE(V00018),SIMRES(SMRPOS),V00018,ERRMES)
      ELSE IF(VCNO.EQ.19) THEN
       CALL GPEQR1(SIZE(V00019),SIMRES(SMRPOS),V00019,ERRMES)
      ELSE IF(VCNO.EQ.20) THEN
       CALL GPEQR1(SIZE(V00020),SIMRES(SMRPOS),V00020,ERRMES)
      ELSE IF(VCNO.EQ.21) THEN
       CALL GPEQR1(SIZE(V00021),SIMRES(SMRPOS),V00021,ERRMES)
      ELSE IF(VCNO.EQ.22) THEN
       CALL GPEQR1(SIZE(V00022),SIMRES(SMRPOS),V00022,ERRMES)
      ELSE IF(VCNO.EQ.23) THEN
       CALL GPEQR1(SIZE(V00023),SIMRES(SMRPOS),V00023,ERRMES)
      ELSE IF(VCNO.EQ.24) THEN
       CALL GPEQR1(SIZE(V00024),SIMRES(SMRPOS),V00024,ERRMES)
      ELSE IF(VCNO.EQ.25) THEN
       CALL GPEQR1(SIZE(V00025),SIMRES(SMRPOS),V00025,ERRMES)
      ELSE IF(VCNO.EQ.26) THEN
       CALL GPEQR1(SIZE(V00026),SIMRES(SMRPOS),V00026,ERRMES)
      ELSE IF(VCNO.EQ.27) THEN
       CALL GPEQR1(SIZE(V00027),SIMRES(SMRPOS),V00027,ERRMES)
      ELSE IF(VCNO.EQ.28) THEN
       CALL GPEQR1(SIZE(V00028),SIMRES(SMRPOS),V00028,ERRMES)
      ELSE IF(VCNO.EQ.29) THEN
       CALL GPEQR1(SIZE(V00029),SIMRES(SMRPOS),V00029,ERRMES)
      ELSE IF(VCNO.EQ.30) THEN
       CALL GPEQR1(SIZE(V00030),SIMRES(SMRPOS),V00030,ERRMES)
      ELSE IF(VCNO.EQ.31) THEN
       CALL GPEQR1(SIZE(V00031),SIMRES(SMRPOS),V00031,ERRMES)
      ELSE IF(VCNO.EQ.32) THEN
       CALL GPEQR1(SIZE(V00032),SIMRES(SMRPOS),V00032,ERRMES)
      ELSE IF(VCNO.EQ.33) THEN
       CALL GPEQR1(SIZE(V00033),SIMRES(SMRPOS),V00033,ERRMES)
      ELSE IF(VCNO.EQ.34) THEN
       CALL GPEQR1(SIZE(V00034),SIMRES(SMRPOS),V00034,ERRMES)
      ELSE IF(VCNO.EQ.35) THEN
       CALL GPEQR1(SIZE(V00035),SIMRES(SMRPOS),V00035,ERRMES)
      ELSE IF(VCNO.EQ.36) THEN
       CALL GPEQR1(SIZE(V00036),SIMRES(SMRPOS),V00036,ERRMES)
      ELSE IF(VCNO.EQ.37) THEN
       CALL GPEQR1(SIZE(V00037),SIMRES(SMRPOS),V00037,ERRMES)
      ELSE IF(VCNO.EQ.38) THEN
       CALL GPEQR1(SIZE(V00038),SIMRES(SMRPOS),V00038,ERRMES)
      ELSE IF(VCNO.EQ.39) THEN
       CALL GPEQR1(SIZE(V00039),SIMRES(SMRPOS),V00039,ERRMES)
      ELSE IF(VCNO.EQ.40) THEN
       CALL GPEQR1(SIZE(V00040),SIMRES(SMRPOS),V00040,ERRMES)
      ELSE IF(VCNO.EQ.41) THEN
       CALL GPEQR1(SIZE(V00041),SIMRES(SMRPOS),V00041,ERRMES)
      ELSE IF(VCNO.EQ.42) THEN
       CALL GPEQR1(SIZE(V00042),SIMRES(SMRPOS),V00042,ERRMES)
      ELSE IF(VCNO.EQ.43) THEN
       CALL GPEQR1(SIZE(V00043),SIMRES(SMRPOS),V00043,ERRMES)
      ELSE IF(VCNO.EQ.44) THEN
       CALL GPEQR1(SIZE(V00044),SIMRES(SMRPOS),V00044,ERRMES)
      ELSE IF(VCNO.EQ.45) THEN
       CALL GPEQR1(SIZE(V00045),SIMRES(SMRPOS),V00045,ERRMES)
      ELSE IF(VCNO.EQ.46) THEN
       CALL GPEQR1(SIZE(V00046),SIMRES(SMRPOS),V00046,ERRMES)
      ELSE IF(VCNO.EQ.47) THEN
       CALL GPEQR1(SIZE(V00047),SIMRES(SMRPOS),V00047,ERRMES)
      ELSE IF(VCNO.EQ.48) THEN
       CALL GPEQR1(SIZE(V00048),SIMRES(SMRPOS),V00048,ERRMES)
      ELSE IF(VCNO.EQ.49) THEN
       CALL GPEQR1(SIZE(V00049),SIMRES(SMRPOS),V00049,ERRMES)
      ELSE IF(VCNO.EQ.50) THEN
       CALL GPEQR1(SIZE(V00050),SIMRES(SMRPOS),V00050,ERRMES)
      ELSE IF(VCNO.EQ.51) THEN
       CALL GPEQR1(SIZE(V00051),SIMRES(SMRPOS),V00051,ERRMES)
      ELSE IF(VCNO.EQ.52) THEN
       CALL GPEQR1(SIZE(V00052),SIMRES(SMRPOS),V00052,ERRMES)
      ELSE IF(VCNO.EQ.53) THEN
       CALL GPEQR1(SIZE(V00053),SIMRES(SMRPOS),V00053,ERRMES)
      ELSE IF(VCNO.EQ.54) THEN
       CALL GPEQR1(SIZE(V00054),SIMRES(SMRPOS),V00054,ERRMES)
      ELSE IF(VCNO.EQ.55) THEN
       CALL GPEQR1(SIZE(V00055),SIMRES(SMRPOS),V00055,ERRMES)
      ELSE IF(VCNO.EQ.56) THEN
       CALL GPEQR1(SIZE(V00056),SIMRES(SMRPOS),V00056,ERRMES)
      ELSE IF(VCNO.EQ.57) THEN
       CALL GPEQR1(SIZE(V00057),SIMRES(SMRPOS),V00057,ERRMES)
      ELSE IF(VCNO.EQ.58) THEN
       CALL GPEQR1(SIZE(V00058),SIMRES(SMRPOS),V00058,ERRMES)
      ELSE
       ERRMES='E-Unexpected VCNO'
       GOTO 15500
      END IF
      IF(ERRMES(1:1).EQ.'E') GOTO 15000
      RETURN
15000 CONTINUE
      CALL PERET(SUBNAM)
      RETURN
15300 CONTINUE
      CALL GPPGER(0,ERRMES)
      GOTO 15500
15500 CONTINUE
      CALL PERETM(SUBNAM,ERRMES)
      RETURN
      END SUBROUTINE SSSTV1
      END MODULE employv2kp_v6
